home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / fse / cool.fse < prev    next >
Text File  |  1998-05-24  |  659b  |  42 lines
  1. /* $VER: Cool.fse 1.0 (26.4.95)
  2. ** (using "TEXT COOLER v1.0 by 
  3. ** DDT of the HALF-BRAINS TEAM") text
  4. ** block - by Troels Walsted Hansen
  5. */
  6.  
  7. options results
  8.  
  9. YPOS
  10. currline = result
  11. XPOS
  12. currcolumn = result
  13. MSGLENGTH
  14. lastline = result
  15.  
  16. call open(tfh, "t:UncoolTempFile", W)
  17.  
  18. do i=currline to lastline
  19.     SETPOS 1 i
  20.     GETLINE
  21.     line = result
  22.  
  23.     if(line ~= "") then do
  24.         DELETELINES
  25.         i = i-1
  26.     end
  27.     else break
  28.  
  29.     call writeln(tfh, line)
  30. end
  31.  
  32. call close(tfh)
  33.  
  34. address command "Cool >nil: t:UncoolTempFile t:CoolTempFile"
  35. call delete("t:UncoolTempFile")
  36.  
  37. SETPOS currcolumn currline
  38. INCLUDEFILE "t:CoolTempFile"
  39. call delete("t:CoolTempFile")
  40.  
  41. SETPOS currcolumn currline
  42.